home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 June / Ahoy_Magazine_85-06_1985_Double_L.d64 / qp menu (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  487b  |  13 lines
  1. 5 print"[147][144] quad print (c) 1984 by michael beutjer "
  2. 10 poke55,0:poke56,28
  3. 20 print"select your printer type."
  4. 30 print"press f1 for epson rx/fx 80 or 100."
  5. 40 print"press f3 for commodore 1526."
  6. 50 geta$:ifa$=""then50
  7. 60 ifasc(a$)=133thenb$="qp e*":print"[147]      loading epson/gemini version"
  8. 70 ifasc(a$)=134thenb$="qp c*":print"[147]     loading commodore 1526 version"
  9. 75 ifb$=""then50
  10. 80 poke53280,6:poke53281,14:print"[154]load"chr$(34)b$chr$(34)",8"
  11. 90 print"":poke198,5:forx=0to4:reada:poke631+x,a:next:end
  12. 500 data13,31,82,213,13
  13.